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; j i Facility: VAX=11 CONVERT/RECLAIM 

: 5 1 | Environment: 

3 5 : } VAX/VMS Operating System 

; «38 1 ' Abstract: 

2 gyi 

> 4] 0 1! Contents: SCAN_DATA_LEVEL 

3 8 ; ee UPDA reIN INDEX 

$ 4 1! REMOVE BUCKET 

3 6444 § 1! ZERO VBOCKET 

$ 8 SWAP ~BUFFERS 

; (4 1 ie. 

. oe ae 

; 650 0049 1 ! Author: Keith B Thompson 

. 3 3039 ! Peter Lieberwirth Creation date: September-1981 
; 52 1! 

3 2¢ 35 : : Modified by: 

; 1 i v03-007 JwT01 76 13-A r=1984 
; 5 0036 1! Fix Linkages to CONVESuRi TE ~AREA_DESC an — 

2 28 834 CONVSSWRITE_KEY_DESC. 

: 60 0059 1 v03-006 KBT0395 Keith B. Thompson 29-0 t-1982 
; «61 8 Add support for prologue 3 sidrs 

; 8 1! v03-005 KBT0358 Keith B. Thompson 6-0c t-1982 
; 8 g8 Use new merged —F definitions 

: 66 0065 1: V03-004 KBT0353 Keith B. Thompson 5-0ct-1982 
; 67 9066 i Use new Linkage definitions 

~003 KBT0048 eith Thomps 21-Apr=1982 
: 70 0069 : — ~ not reclaim 4* last totes’ record in a — 
14 —8318 vO3-002 kBT0041 Keith Thompson 3-Apr-1982 
.. £ i 1! Add logic to swing index pointers if Oh «. ond fix index 
3 a ih ' save bucket logic 

.- 7 7s 33 v03-001 KBT0010 Keith Thompson 16-Mar-1982 
3 7 6 1! ix a problem with end condition in update_index and 
s 28 i ! add a few Lines of comments. 
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CLSCTRL VAX-11 CONVERT/RECLAIM 15-56 -1984 23:58: AX-11 Bliss-32 V4.0-74 Pa 4 
Wiscb60 SCAN DATA LEVEL 1 ~$00n 138% 93:78:38 CONV SREIRECLE TRL Le, ™ (4) 
ZSBTTL ‘SCAN_DATA LEVEL | . 
GLOBAL ROUTINE RECLSSSCAN_DATA_LEVEL : RLSJSB_REG_9 = 
Functional Description: 
This routine sequentially read along the data level buckets 
tpox ing for an empty one. If it finds one it trys to remove 
the index to it then trys to remove it. 
! Calling Sequence: 
RECLSSSCAN_DATA_LEVEL () 


! Input Parameters: 
none 


ee 
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! Implicit Inputs: 
BUCKET 
Output Parameters: 

none 


Implicit Outputs: 
none 


Routine Value: 
normal 
Routines Called: 
BUCKET_EMPTY 
UPDATE_ INDEX 
REMOVE BUCKET 
SWAP_BOFFERS 
GET_REXT_BUCKET 
Side Effects: 
none 


BEGIN 

DEF INE_CTX; 

DEF INE_BUCKET; 

DEF INE~KEY_DESC; 

' Loop 4 the Last bucket in chain if found. 

! If this bucket is the last in the chain don't do it (it is to 
; complaicated to reclaim this one bucket) instead go to the 
WHILE ( NOT .BUCKET C BKTSV_LASTBKT ) ) 


BEGIN 
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: If the bucket is empty the try to remove all traces of it 

| 


§ 
J 1 
: 1% i 
: 17% 7 iF RECLSSBUCKET_EMPTY() 
s 75 1 THEN 
3 178 175 4 BEGIN 
.. 174 4 
3 178 \t? : Remove the index record for this bucket 
; 1 ie ¢ iF UPDATE_INDEX( .CTX C CTXSL_CURRENT_VBN ) ) 
3 \ 1 Mf ? THEN 
: } 4 ; : 2 : If the update was successful remove the bucket itself 
; 185 2 é REMOVE _BUCKET() 
31 184 4 ELSE 
8 133 185 4 
3 18 1 — 4 ! If index could not be update then swap the buffers in order 
; 190 4 4 ! to save the previous bucket 
; 6191 188 4 ! 
3 135 189 4 
: 19 190 4 
3 194 191 4 END 
3 8 136 ELSE 
: 197 194 ! If the bucket is not empty then swap the buffers in order to save 
; 198 195 ! the previous bucket 
3 6199 128 ! 
H 9 94 RECLSSSWAP_BUFFERS(); 
; Oe 0199 ! Get the next bucket 
; 20 $00 ! 
3 04 3 01 RECLSSGET_NEXT_BUCKET() 
; 205 sos 
; 206 020 END; 
3; 207 0204 
: 208 0205 RETURN RECLS$_SUCCESS 
3; 209 pee 
: 210 0207 1 END; 


LE Rect Se Tat VAX-11 CONVERT/RECLAIM 
\v04-000\ 


TIT 
- IDENT 

-EXTRN RECLSSGET_NEXT BUCKET 
-EXTRN RECLSSBUCRET EMPTY 

-EXTRN RECLSSGET_DOON POINTER 
~EXTRN RECLSSCHECK LAST 

sEXTRN RECLSSCOMPARE POINTER 
~EXTRN RECLSSSWING POINTER 
-EXTRN RECLSSREMOVE_INDEX_RECORD 
eEXTRN RECLSSWRITE_ BUCKET 

~EXTRN CONVSSURI TE “AREA DESC 
sEXTRN CONVSSWRITE-KEY DESC 
sEXTRN CONVSAR_AREA_BLOCK 


| 


-PSECT _CONVSRECL_S,NOWRT, SHR, PIC,2 

1F 0D a9 €E8 00000 RECLSSSCAN, DATA “EVEL: : 
(BUCKET), 3 0165 

oog⸗ 8 {etd hee seucker Enpry : 0171 
08 A PUSHL 
000 ov s BSBW on. INDEX 

1 
BSBW ORR Shove BUCKET 
BSBW =—s-_- RECLSSSWAP_BUFFERS 


1 

33 

1 i: BSBW RECL $$GET_REXT BUCKET 
" BRB RECLSSSCAR_ DATA_LEVEL 
6 


50 Of 0 


: Routine Size: 39 bytes, Routine Base: _CONVSRECL_S + 0000 
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"UPDATE INDEX’ 
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TTL 

TINE UPDATE_INDEX ( VBN ) : RLSJSB_REG_9 = 


T 
I 


725 


Functional Description: 


This routine updates the level above whe. a bucket on the lower level 
is deleted. When called recursively, it updates the entire index. 


Calling Sequence: 

UPDATE_INDEX( VBN ); 
Input Parameters: 

VBN - the VBN of the bucket being deleted on the lower level 
Implicit Inputs: 


BUCKET 
KEY_DESC 


Output Parameters: 
None. 

Implicit Outputs: 
None. 

Routine Value: 
SUCCESS or FAILURE 

Routines Called: 
GET DOWN POINTER 
COMPARE POINTER 
SWING POINTER 
REMOVE_INDEX_RECORD 
BUCKET_EMPTY 
UPDATE_ INDEX 


Side Effects: 
None. 


a ret ae eet eee ae he el ee hel eel ee a ee ed ee ee et el te et et et ee ft | 


BEGIN 


DEF INE_CTX; 
DEF INE~BUCKET; 


s- 
UPDATE _ INDEX CONV. SRCIREC 
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DEF INE KEY DESC: 
DEF INE-KEY-POINTER_GLOBAL; 

L 

STATUS 

NEXT_DATA_BUCKET; 
Assume success 
STATUS = RECL$_SUCCESS; 
H Return success if at level with root bucket 
if -BUCKET C BKTSV_ROOTBKT } 


RETURN .STATUS; 
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! Before we move up a level get the vbn of the next bucket (when this is 
the data level it will be important) 


| 
| 
| 
NEXT_DATA_BUCKET = .BUCKET C BKTSL_NXTBKT J; 
} Point the context at the next higher level in the tree 
CTX = .CTX + CTXS$K_BLN; 
H Point to the new bucket 
BUCKET = .CTX C CTXSL_CURRENT_BUFFER J; 
Save the position in the index so we can come back 
CTX C CTXSL_SAVE_VBN J = .CTX C CTXSL_PREVIOUS_VBN J; 
: Search all the buckets on the current level for a down pointer 
DO 
| 
| 
| 


BEGIN 
: Is down pointer in current bucket? 
IF RECLS$GET_DOWN_POINTER( .VBN ) 
THEN 


BEGIN 


144 
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Yes, we found the down potater in the current bucket. 

—** to fe y is the Last pointer in a bucket if so we 
can't reclaim it. 

If this {s level 1 check to see if the next index pointer points 
to the next data bucket. If it doesent we swing ' e 

pointer to point to the next data bygket. Otherwise we squish 
ous the down pointer. Then to see squishing out the down 
point n ? i ‘ 


ble. If it 
mth $s one if s not reclaimable 
ndex record following the deleted down 
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14-Sep-1 
} pointer and write the bucket back. 


CONV.SR 


lee 
If this is the last index record in the bucket then don't reclaim it 
iF RECLS$SCHECK_LAST() 
THEN 
BEGIN 
STATUS = RECLS_FAILURE; 
Ens TLGGP 
IF .CTX C CTX$B_LEVEL J EQLU 1 
THEN 
! Check to see if the next index pointer points to the 
: next data bucket 
iF _RECLSSCOMPARE_POINTER( .NEXT_DATA_BUCKET ) 


If it does, simply remove the current index record 
RECLSSREMOVE_INDEX_RECORD() 
ELSE 


! If it doesent, swing the current index record to point 
to the next data bucket 


RECLSSSWING_POINTER( .NEXT_DATA_BUCKET ) 
ELSE 
: Squish out the index record in the current buffer 
RECLSSREMOVE_INDEX_RECORD(); 
: if this index bucket is empty then lets try to reclaim it! 
IF RECLSSBUCKET_EMPTY() 
THEN 
BEGIN 
4 if the index bucket is empty, try to update all the 
! index levels above. 
: If sucessful remove it. 
if STATUS = UPDATE_INDEX ( .CTX C CTXSL_CURRENT_VBN J ) 
BEGIN 
: If the update was successful remove the bucket 
REMOVE _BUCKET(); 
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14-Sep-1 
} Get the next bucket so we don’t look at this one again 
RECLSSGET_NEXT_BUCKET() 
END 
ELSE 
BEGIN 


! If the update failed then we must reread the buffer since 
it was modified 


CTX C CTXSL_NEXT_VBN J = .CTX C CTXSL_SAVE_VBN 2; 
Zero the current buffer vbn to force the read 
CTX C CTXSL_CURRENT_VBN J = 0; 
Get the saved previous bucket 
RECLSSGET_NEXT_BUCKET(); 
EXITLOOP 
END 

eLsee 

BEGIN 


' bucket is not empty so just write the current 
: buffer back, and return 


RECLSSWRITE_BUCKET( CTX C CTX$L_CURRENT_BUFFER ) ); 
EXITLOOP 
END 
END 
ELSE 


! Down pointer is not in current buffer so read in the next bucket 
in the horizontal chain. 


| 
q 
i 
! However, if this is already the last bucket in this level, we 
i didn't find the down ointer, so return saying success, since 
! if there's no down pointer we can certainly reclaim the bucket 
: on the level below. 
i -BUCKET C BKTSV_LASTBKT J 

BEGIN 


. af this bucket is the sone as the save bucket then 
don't bother to reread it 
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VAX=-11 CONVERT/RECLAIM . 2126 23:565: AX-11 Bliss-32_ V4.0- 
U 4 be $3:74:08 CONV. SRCJRECLCTRL.B3 


14-Sep-1 

ia C CTXSL_CURRENT_VBN J NEQU .CTX C CTXSL_SAVE_VBN J 
BEGIN 
H Before we return go back to where we were 
CTX C CTXSL_NEXT_VBN J = .CTX C CTXSL_SAVE_VBN J; 
Get the saved previous bucket 
RECLSSGET_NEXT_BUCKET() 
END; 

Swap the suckers 

RECLSSSWAP_BUFFERS(); 

Get the saved bucket 

RECLSSGET_NEXT_BUCKET(); 

Return 

EXITLOOP 

eLsee™ 

BEGIN 

Its not the last bucket, so go read the next bucket 

RECLSSSWAP_BUFFERS(); 

RECLSSGET_NEXT_BUCKET() 

END 

END 
UNTIL RECLS_FOREVER; 


!' We exit the loop on sucess so return the context back to where it 
was when we were called 


CTX = .CTX = CTXSK_BLN; 

BUCKET = .CTX C CTXSL_CURRENT_BUFFER J; 
RETURN .STATUS 

END; 
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Ax-11 Bliss-32 V4.0-74 
tOny SREIRECLE TNE O50, 
#*M<R2,R3,RB> 
4) #1, TU 
BBC i (BUCKET), 1$ 
MOVL (BUCKET) NEXT_DATA_BUCKET 
R10), €TX 


( ° 
MOVL 364 BUCKET 
MOVL 6B(CTXS, 4(CTX) 


Vv 
BSBW RE CLESGET _DOWN_POINTER 


BLBC 30,58 

BSBW 3S Rc LLSSCHECK_LAST 

BLBC 

CLRL TATUS 

BPB 

CMPB eccTX), wi 

BNEQ $ 

PUSHL NEXT_DATA_BUCKET 

BSBw RECLESCOMPARE POINTER 
ADDL2 #4, SP 


0; 4$ 
NEXT_DATA_ BUCKET 

BSBW ——-RECLSSSWING_POINTER 

ADDL2 #4, SP 

BRB. 33 

BSBW ——-RECLSSREMOVE_INDEX_RECORD 
BSBW = RECLSSBUCKET EMPTY 


8(ETX) 
UPDATE _INDEX 
#4, S$ 

MOVL RO. STATUS 


BLBC STATUS, 6$ 
BSBW R MOVE (BUCKET 


MOVL (CTX), BOCCTX) 
CLAL (CTX) 
BRB 
PUSHAB 4(CTX) 
BSBW =—-_- RECLSS$WRITE_BUCKET 
ADDL2 #4, SP 
BRB 138 
BLBC 13(BUCKET), 118 
CMPL (CTX), B4¢CTX) 
BEQL 
MOVL 4(CTX), BOCCTX) 
BSBU RECLSSGET_NEXT BUCKET 
BSBW RECL S$SUAP BUFFERS 
BSBW RECL $GET_REXT_BUCKET 
BRB 1 
BSBu OCR CLESSWAP BUFFERS 
SBW R CLSS$GET_REXT_BUCKET 
=92( 
4(CT 
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: Routine Size: 182 bytes, Routine Base: _CONVSRECL_S + 0027 
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494 ZSBTTL ‘REMOVE BUCKET’ 

$3? ROUTINE REMOVE BUCKET : RLS$JSB_REG_9 NOVALUE = 
49 i 

8 Functional Description: 


ae routine takes the steps required to remove a bucket from the 
horizontal chain, write it to the AVAIL List, and update the key 
descriptor if necessary. 
Calling Sequence: 
REMOVE _BUCKET(); 


Input Parameters: 
none 


SSIERFENLS. 


Implicit Inputs: 

CTX to point to current bucket, etc... 
Output Parameters: 

none 


— —— — — — — — — — 


Implicit Outputs: 


The bucket is removed and written to the AVAIL List. ALL pointers 
are updated. 


Routine Value: 
none 


Routines Called: 


CONVSSWRITE_KEY DESC 
RECLSSURITE BUCKET 


UCK 
CONVSSWRITE_AREA_DESC 
Side Effects: 


RECL$GL_DATA_COUNT is incremented if we reclaim a data bucket. 
RECLSGL_INDER_COUNT is incremented if we reclaim an index bucket. 
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40 BEGIN 

42 DEF INE_CTX; 

4 DEF INE-BUCKET; 

44 DEF INE~KEY_DESC; 

45 40 

46 41 EXTERNAL 
4 RECL$GL_DATA_COUNT 
43 RECL$GL~INDER_COUNT; 
45 LOCAL 
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is assumed that the index record for this bucket has been removed. 
Step | 
Update the previous bucket pointer to point to the next one in the chain 
BEGIN 
LOCAL PREVIOUS_BUCKET : REF BLOCK C ,BYTE J; 
PREVIOUS_BUCKET = .CTX C CTXSL_PREVIOUS_BUFFER J; 
} Update the previous bucket in the chain 
PREVIOUS_BUCKET C BKTSL_NXTBKT J = .CTX C CTXSL_NEXT_VBN J; 
RECLSSWRITE_BUCKET( CTX C CTXSL_PREVIOUS_BUFFER J ) 


PUPPIES £* 5 
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Step la 


In the case that this is the first bucket in a chain then either do 
nothing or update the key descriptor, depending on the level. 


Is this the first bucket in the chain 
ot C CTX$SL_CURRENT_VBN ) EQLU .CTX C CTXSL_FIRST_VBN J 
BEGIN 


! If this is the data level bucket then update the key descriptor 
else continue 


iF .BUCKET C BKTSB_LEVEL J EQLU 0 
THEN 
BEGIN 
KEY_DESC C KEYSL_LOVBN J = .CTX C CTXSL_NEXT_VBN J; 
CONVSSWRITE_KEY_DESC() 
END; 
H The next vbn will now be the first in the chain 
CTX C CTXSL_FIRST_VBN } = .CTX C CTXSL_NEXT_VBN J 
END; 
Step II 
i Update the current bucket to point to the first bucket in the area 
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E_BuC 
AREA_DESC : REF BLOCK C ,BYTE J; 
! The removal of a bucket is done in three steps. she order ef which 
} is of the utmost importance to the reliability of the utility. It 
: 
: 
4 
4 
4 
4 
4 
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CL$GL_DATA. COUNT 
CLSGL~INDER_COUNT 


10 
LSCTRL VAX=-11 CONVERT/RECLAIM 1beSe 1984 258: AX-11 Bliss-32 V4.0-74 Pa 16 
Hi dee $4 REMOVE BUCKET 12788-1382 93:78:38 ny SRETRECE ETH O34 - (6) 
: ¢ ; available List 
3 9 t To update the bucket we must use the area descriptor 
3 ig AREA_DESC = .CONVSAR_AREA_BLOCK + ( .CTX C CTXSB_AREA ] * AREASK_BLN ); 
3 oie : Point the bucket to the first avail. bucket 
3 618 ; BUCKET C BKTSL_NXTBKT ] = .AREA_DESC [ AREASL_AVAIL J; 
3 ef . § : If first bucket on free List set the last bucket bit 
3 620 515 if BUCKET C BKTSL_NXTKT J EQLU 0 
; 6 Q : ; BUCKET C BKTSV_LASTBKT } = _SET; 
; — — Zero the data portion of the bucket 
; 626 521 ZERO_BUCKET(); 
3 — Write the bucket into the file 
; 630 5 RECLSSWRITE_BUCKET( CTX C CTXSL_CURRENT_BUFFER J ); 
3 ° ¢ Os : ; Count the reclaimed bucket. 
; 6 5 IF .BUCKETC BKTSB_LEVEL 3 EQLU 0 
3 — 5 8 1 THEN 
3 i 06 g } Its a data bucket we're reclaiming. 
: 639 RECLSGL_DATA_COUNT = .RECLSGL_DATA_COUNT + 1 
: oy 5 ELSE 
; 8 : Its an index bucket we're reclaiming. 
3 644 5 RECLSGL_INDEX_COUNT = .RECLSGL_INDEX_COUNT + 1; 
: 66 1 
; 8 ri} Step III 
: 64 4 i Update the area descriptor with the new bucket at the head of the 
; 630 5 : availiable List 
; 6 3 $ AREA_DESC C AREASL_AVAIL ] = .CTX C CTXSL_CURRENT_VBN J; 
; $28 ‘3 CONVSSWRITE_AREA_DESC( .CTX C CTX$B_AREA ] ); 
: 65 51 RETURN 
3 83 26 
3; 658 5 END; 
| 


vor-000" REMOVE BUCKET AIM HEsboct9ue FEsHESSE Yad! OLSercde nests — 


52 DD 00000 REMOVE BUCKET: 
PUSHL 


R 3 
5 AA D VL (CTX), PREVIOUS BUC ; $50 
08 8 50 AA 8 VL (CTX), 8(PREVIOOS_BUCKET) + 0564 
AA OF PUSHAB 64(CTX) + 0566 
* 00906 é BSBW. RECLSSWRITE_BUCKET : 
24 AA 08 AA p 14 cMPL "ies 36(CTX) t 0577 
oc ay ? 18 ist (BUCKET) + 0584 
54 AB 50 AA p MOVL (CTX), 84(KEY_DESC) : 588 
00006 BSBW coves E_KEY~DESC ; 05 
24 44 0 AA 1$: MOVL 6TCTXY : 596 
1 AA 9A D 2$: MOVZBL (CTX), R : 
59 06 78 1 ASHL. #6, R : 
5 00006 CF C1 5 ADDL3 CONVSAR_AREA_BLOCK, RO, AREA_DESC : 
08 Ad 0 Ae p ; Ov (AREA_DESC); 8(BUCKETS : 8 
0D a9 0 4 B1SB2 13 (BUCKET) + 0617 
0000v 46 3S: BSBW ZERO BU ; 9641 
04 AA 9F 0004 PUSHAB 4(CTR) + 0625 
00006 4C BSBW =—- RECLSSWRITE_BUCKET : 
SE 4 g 4F ADDL2 #4, SP ; 
oc Ag 05 TSTB =: 12 (BUCKET) + 0629 
06 12 005 BNEQ : 
00006 cf 06 0087 INCL RECLSGL_DATA_COUNT + 0634 
00006 CF 06 0050 4$: INCL § RECLSGL_INDEX_COUNT + 0639 
08 A2 08 AA 0061 5$: MOVL 8 (CTX), “B(AREA_DESC) + 0647 
51 1 AA 9A 00066 MOVZBL ais + 0649 
00006 30 0006A BSBW CONVSSWRITE_AREA_DESC : 
4 BA 0060 POPR #*M<R2> + 0653 
5 0006F RSB : 
; Routine Size: ytes, outine Base: _CONV LS + 
Routine Si 112 b Routine B CONVSRECL_S + 00DD 


2 659 0654 1 


LSCTRL ho.g ONVERT/RECLAIM b 10 -1984 758: AX-11 Bliss-32 V4.0-74 Pa 8 
—X W gce 93:44308 egecütſatckent: 31 ve 
3 £6) 1 ZSBTTL. ‘ZERO BUCK 
; ¢ re ZERO OBuCKET 3  RLSJSB_REG.9 NOVALUE = 
4 i 
; i i ; Functional Description: 

; 667 i Zeros out the data portion of a index bucket 
83 Calling Sequence: 
3 or} : ZERO_BUCKET() 
; $76 1 i Input Parameters: 
3; 674 i! none 
; $7? i Implicit I t 
3 ' c nputs: 
3 ers 1! * none ‘ 
3 88 1! 
3; 67 1 ! Output Parameters: 
; 680 14 none 
8 
re 6 Ah hes — 
3; 684 78 1! 
3; 685 79 1°! Routine Value: 
3 O86 1! none 
; 68 0681 1 ! 
; 688 ; 1 ! Routines Called: 
3; 689 1! none 
; 690 1! 
: 691 5 1! Side Effects: 
; 69 & none 
; 69 1! 
3 694 8 1 !-- 
3; 695 89 1 
3 698 90 BEGIN 
; 469 91 
3; 698 3 DEF INE_CTX; 
3 99 9 DEF INE_BUCKET; 
3 700 3% DEF INE-KEY_DESC; 
: 70 8* CHSFILL( 0 ! FILL with O's 
; 70 069 Ctx xf CTX$W_BUCKET_SIZE ] = BKTSK_OVERHDSZ - i This much 
: oe 0699 CTX CTXSL_ “CURRENT BUFFER ) + BKTSK OVERHDSZ * ! Starting here 
; 706 arat RETURN 
me. 701 
: 708 702 END; 
we 08 Cteee sEne eae it #*M<R2 RS, R4, R5> : 8636 
1 AA 3 MOV PUL 88(CTXS, > 0697 
3 25 88806 Wee #iSe at 


RECLEEIRL AKT}. COWVERT/RECLAIA 1B-Feo-1966 25:58:52 yan Bt fese82_y4.0-749 Paoe 19 
. - an — A ; 068 
sc BA 3 POPR #°M<R2,R3,R4,R5> 0702 


; Routine Size: 23 bytes, Routine Base: _CONVSRECL_S + 014D 


; 709 0703 1 
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LSCTRL ONVERT/RECLAIM 18-Sep AX-11 Bliss<-32 V4.0-74 
dt FERS 12-808=4882 93:38 +3 CONV. SRCIRECLCTRL.B32; 
3 1 1 ZSBTTL ‘SWAP_BUFFER 
3 1 : GLOBAL ROUTINE RECL SSWAP_BUFFERS : RLSJSB_REG_9 NOVALUE = 
: 71 1 i 
; a } : Functional Description: 
; ri i ; Calling Sequence: 
: ng 1 i Input Parameters: 
3 f } none 
: 7 1 ' Implicit Inputs: 
3 f § ; } none = 
: 725 1 § Output Parameters: 
3 £ — none 
: 728 1 | Implicit Outputs: 
3 9 none 
: 731 1! Routine Value: 
g ¢ : none 
.? 1 ' Routines Called: 
3 g 5 : ; none 
: 7 1 ! Side Effects: 
3; 7 1! none 
; 739 1! 
i ie 
; 2 BEGIN 
> 7he DEF INE_CTX; 
3 745 DEF INE_BUCKET; 
3 246 DEF INE-KEY_DESC; 
3 748 LOCAL 
3 749 TEMP_BUF , 
; 731 TEMP_VBN; 
; g § Swap the current buffer with the previous buffer and change bucket 
; 734 TEMP_BUF = .CTX { CTXSL_PREVIOUS_BUFF R 1; 
3 £3? —8 TEMP VBN = .CTX C CTXSL =PREVIOUS_ _VBN 
: 75 750 CTX C CTXSL_PREVIOUS_BUFFER ] = .CTX C CTXSL_CURRENT_BUFF R 1}; 
; * — 1 CTX CTXS$L- PREVIOUS— _VBN = CTX ate X$L “CURRENT— _VBN 
: 760 7 Q CTX [ CTXSL_CURRENT BUFFER J = - TEMP BUF ; 
3 re) — cT™x C CTxX$_~ “CURRENT— _VBN a TEMP VBN: 
; 763 , é BUCKET = .TEMP_BUF; 
: 765 738 RETURN 
3 106 75 
s 76 760 END; 


** 
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50 40 AA 7D 00000 RECLSSSWAP_BUFFERS:: 
mova 64(CTX), TEMP_BUF : 0747 
40 AA 04 AA b 00909 mMOVa 4(CTX), 64(CTR) 3 739 
046 AA a f MOVQ TEMP_BUF, 4(CTX) 3; 075 
59 0 36 MOVL TEMP_BUF, BUCKET 3; 0756 
0 510 RSB ; 0760 
; Routine Size: 17 bytes, Routine Base: _CONVSRECL_S + 0164 
: 768 0761 1 
: 769 0762 0 END ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _CONVSRECL_S 373 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics | 
Ss eee ee ie rh gue ed OO Symbols * Pages Processing 
; File Total Loaded Percent Mapped Time 
3 _$255$DUA28:(SYSLIBILI 18619 8 Q 1000 00:01.8 
3 7$255$DUA28:CCONV.SRCJ ohveRT. L32;1 165 2 1 17 00:00.2 | 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RECLCTRL/OBJ=OBJ$:RECLCTRL MSRCS$:RECLCTRL/UPDATE=(ENH$:RECLCTRL) | 
3; Size: 373 + 0 data bytes 
3; Run Time 1.3 — 
3; Elapsed 
; ttyl Hin: 5 
3 Nees Ah te 1 
3 Memor ry Us 103 pages 
3 Compi ation. Complete 
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